home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / pao / towns / cdplay / src / word.c < prev    next >
Text File  |  1991-10-18  |  15KB  |  374 lines
  1. /* << High C V1.4 >> **********************************************************
  2. **
  3. **    CD PLAYER 用 文字ﾃﾞｰﾀ と 7ﾎﾟ文字表示ﾙｰﾁﾝ
  4. **
  5. **    1991.03.19 : CREATE
  6. **    1991.03.19 : FINISH
  7. **
  8. **    < HISTORY >
  9. **    1991.03.19 : CREATE
  10. **    1991.03.26 : 7ﾎﾟ文字表示関数の追加
  11. **    1991.03.28 : 9ﾎﾟ文字表示関数の追加
  12. **
  13. **    < note > : TABS = 4
  14. **
  15. **    All Rights Reserved, Copyright (C) Y.Hirata 1991.
  16. **
  17. **    Programmed by Y.Hirata ( Nifty ID : NAB03321 )
  18. **
  19. **    Spetial thanks : ただひろ(K.Shimizu)
  20. **
  21. ******************************************************************************/
  22.  
  23. #include <string.h>
  24. #include <egb.h>
  25. #include "cdpn.h"
  26. #include "grp.h"
  27.  
  28. char    WORD_exit[3*7] = {
  29.     0x1e,0x8a,0xf8,
  30.     0x10,0x8a,0x20,
  31.     0x10,0x52,0x20,
  32.     0x1c,0x22,0x20,
  33.     0x10,0x52,0x20,
  34.     0x10,0x8a,0x20,
  35.     0x1e,0x8a,0x20
  36. } ;
  37.  
  38. char    WORD_program[3*7] = {
  39.     0x39,0xc6,0x30,
  40.     0x25,0x29,0x48,
  41.     0x25,0x29,0x48,
  42.     0x39,0xc9,0x40,
  43.     0x21,0x49,0x58,
  44.     0x21,0x29,0x48,
  45.     0x21,0x26,0x32
  46. } ;
  47.  
  48. char    WORD_single[3*7] = {
  49.     0x65,0x26,0x47,
  50.     0x95,0x29,0x44,
  51.     0x85,0xa9,0x44,
  52.     0x65,0x68,0x47,
  53.     0x15,0x6b,0x44,
  54.     0x95,0x29,0x44,
  55.     0x65,0x26,0x77
  56. } ;
  57.  
  58. char    WORD_continue[3*7] = {
  59.     0x18,0xc9,0x7c,
  60.     0x25,0x29,0x10,
  61.     0x25,0x2d,0x10,
  62.     0x21,0x2b,0x10,
  63.     0x25,0x2b,0x10,
  64.     0x25,0x29,0x10,
  65.     0x18,0xc9,0x12
  66. } ;
  67.  
  68. char    WORD_7p[95][1*7] = {
  69.     { 0x00,0x00,0x00,0x00,0x00,0x00,0x00 },        /*    space    */
  70.     { 0x40,0x40,0x40,0x40,0x40,0x00,0x40 },        /*    !        */
  71.     { 0x50,0x50,0x00,0x00,0x00,0x00,0x00 },        /*    "        */
  72.     { 0x50,0xf8,0x50,0x50,0x50,0xf8,0x50 },        /*    #        */
  73.     { 0x20,0x78,0xa0,0x70,0x28,0xf0,0x20 },        /*    $        */
  74.     { 0xc0,0xc8,0x10,0x20,0x40,0x98,0x18 },        /*    %        */
  75.     { 0x60,0x90,0xa0,0x40,0xa8,0x90,0x68 },        /*    &        */
  76.     { 0x20,0x40,0x00,0x00,0x00,0x00,0x00 },        /*    '        */
  77.     { 0x08,0x10,0x10,0x10,0x10,0x10,0x08 },        /*    (        */
  78.     { 0x80,0x40,0x40,0x40,0x40,0x40,0x80 },        /*    )        */
  79.     { 0x00,0x20,0xa8,0x70,0x70,0xa8,0x20 },        /*    *        */
  80.     { 0x00,0x20,0x20,0xf8,0x20,0x20,0x00 },        /*    +        */
  81.     { 0x00,0x00,0x00,0x00,0x20,0x20,0x40 },        /*    ,        */
  82.     { 0x00,0x00,0x00,0xf8,0x00,0x00,0x00 },        /*    -        */
  83.     { 0x00,0x00,0x00,0x00,0x00,0x40,0x00 },        /*    .        */
  84.     { 0x00,0x08,0x10,0x20,0x40,0x80,0x00 },        /*    /        */
  85.     { 0x70,0x88,0x98,0xa8,0xc8,0x88,0x70 },        /*    0        */
  86.     { 0x20,0x60,0x20,0x20,0x20,0x20,0x70 },        /*    1        */
  87.     { 0x70,0x88,0x88,0x10,0x20,0x40,0xf8 },        /*    2        */
  88.     { 0x70,0x88,0x08,0x30,0x08,0x88,0x70 },        /*    3        */
  89.     { 0x10,0x30,0x50,0x90,0xf8,0x10,0x10 },        /*    4        */
  90.     { 0xf8,0x80,0xf0,0x08,0x08,0x88,0x70 },        /*    5        */
  91.     { 0x70,0x88,0x80,0xf0,0x88,0x88,0x70 },        /*    6        */
  92.     { 0xf8,0x88,0x10,0x10,0x20,0x20,0x20 },        /*    7        */
  93.     { 0x70,0x88,0x88,0x70,0x88,0x88,0x70 },        /*    8        */
  94.     { 0x70,0x88,0x88,0x78,0x08,0x88,0x70 },        /*    9        */
  95.     { 0x00,0x20,0x00,0x00,0x00,0x20,0x00 },        /*    :        */
  96.     { 0x00,0x20,0x00,0x00,0x00,0x20,0x40 },        /*    ;        */
  97.     { 0x00,0x20,0x40,0x80,0x40,0x20,0x00 },        /*    <        */
  98.     { 0x00,0x00,0xf8,0x00,0xf8,0x00,0x00 },        /*    =        */
  99.     { 0x00,0x80,0x40,0x20,0x40,0x80,0x00 },        /*    >        */
  100.     { 0x70,0x88,0x08,0x10,0x20,0x00,0x20 },        /*    ?        */
  101.     { 0x70,0x88,0x98,0xa8,0xa8,0xb8,0x48 },        /*    @        */
  102.     { 0x20,0x50,0x88,0x88,0xf8,0x88,0x88 },        /*    A        */
  103.     { 0xF0,0x88,0x88,0xF0,0x88,0x88,0xF0 },        /*    B        */
  104.     { 0x70,0x88,0x80,0x80,0x80,0x88,0x70 },        /*    C        */
  105.     { 0xE0,0x90,0x88,0x88,0x88,0x90,0xE0 },        /*    D        */
  106.     { 0xF8,0x80,0x80,0xF0,0x80,0x80,0xF8 },        /*    E        */
  107.     { 0xF8,0x80,0x80,0xF0,0x80,0x80,0x80 },        /*    F        */
  108.     { 0x70,0x88,0x80,0x80,0x98,0x88,0x70 },        /*    G        */
  109.     { 0x88,0x88,0x88,0xF8,0x88,0x88,0x88 },        /*    H        */
  110.     { 0x70,0x20,0x20,0x20,0x20,0x20,0x70 },        /*    I        */
  111.     { 0xF8,0x10,0x10,0x10,0x10,0x90,0x60 },        /*    J        */
  112.     { 0x88,0x90,0xA0,0xC0,0xA0,0x90,0x88 },        /*    K        */
  113.     { 0x80,0x80,0x80,0x80,0x80,0x80,0xF8 },        /*    L        */
  114.     { 0x88,0x88,0xD8,0xA8,0xA8,0x88,0x88 },        /*    M        */
  115.     { 0x88,0x88,0xC8,0xA8,0x98,0x88,0x88 },        /*    N        */
  116.     { 0x70,0x88,0x88,0x88,0x88,0x88,0x70 },        /*    O        */
  117.     { 0xF0,0x88,0x88,0xF0,0x80,0x80,0x80 },        /*    P        */
  118.     { 0x70,0x88,0x88,0x88,0xA8,0x90,0x68 },        /*    Q        */
  119.     { 0xF0,0x88,0x88,0xF0,0xA0,0x90,0x88 },        /*    R        */
  120.     { 0x70,0x88,0x80,0x70,0x08,0x88,0x70 },        /*    S        */
  121.     { 0xF8,0x20,0x20,0x20,0x20,0x20,0x20 },        /*    T        */
  122.     { 0x88,0x88,0x88,0x88,0x88,0x88,0x70 },        /*    U        */
  123.     { 0x88,0x88,0x88,0x88,0x50,0x50,0x20 },        /*    V        */
  124.     { 0x88,0x88,0xA8,0xA8,0xA8,0x50,0x50 },        /*    W        */
  125.     { 0x88,0x88,0x50,0x20,0x50,0x88,0x88 },        /*    X        */
  126.     { 0x88,0x88,0x50,0x50,0x20,0x20,0x20 },        /*    Y        */
  127.     { 0xF8,0x08,0x10,0x20,0x40,0x80,0xF8 },        /*    Z        */
  128.     { 0x18,0x10,0x10,0x10,0x10,0x10,0x18 },        /*    [        */
  129.     { 0x88,0x50,0xF8,0x20,0xF8,0x20,0x20 },        /*    \        */
  130.     { 0xC0,0x40,0x40,0x40,0x40,0x40,0xC0 },        /*    ]        */
  131.     { 0x20,0x50,0x00,0x00,0x00,0x00,0x00 },        /*    ^        */
  132.     { 0x00,0x00,0x00,0x00,0x00,0x00,0xF8 },        /*    _        */
  133.     { 0x20,0x10,0x00,0x00,0x00,0x00,0x00 },        /*    `        */
  134.     { 0x00,0x70,0x08,0x78,0x88,0x98,0x68 },        /*    a        */
  135.     { 0x80,0x80,0xf0,0x88,0x88,0x88,0x70 },        /*    b        */
  136.     { 0x00,0x00,0x70,0x80,0x80,0x80,0x70 },        /*    c        */
  137.     { 0x08,0x08,0x78,0x88,0x88,0x88,0x78 },        /*    d        */
  138.     { 0x00,0x00,0x70,0x88,0xf8,0x80,0x70 },        /*    e        */
  139.     { 0x18,0x20,0x20,0x78,0x20,0x20,0x20 },        /*    f        */
  140.     { 0x00,0x78,0x88,0x88,0x78,0x08,0x70 },        /*    g        */
  141.     { 0x80,0x80,0xb0,0xc8,0x88,0x88,0x88 },        /*    h        */
  142.     { 0x00,0x20,0x00,0x20,0x20,0x20,0x20 },        /*    i        */
  143.     { 0x00,0x10,0x00,0x10,0x10,0x90,0x60 },        /*    j        */
  144.     { 0x80,0x80,0x90,0xa0,0xc0,0xa0,0x90 },        /*    k        */
  145.     { 0x20,0x20,0x20,0x20,0x20,0x20,0x30 },        /*    l        */
  146.     { 0x00,0x00,0x50,0xa8,0xa8,0xa8,0xa8 },        /*    m        */
  147.     { 0x00,0x00,0xa0,0xd0,0x90,0x90,0x90 },        /*    n        */
  148.     { 0x00,0x00,0x70,0x88,0x88,0x88,0x70 },        /*    o        */
  149.     { 0x00,0xb0,0xc8,0x88,0xc8,0xb0,0x80 },        /*    p        */
  150.     { 0x00,0x68,0x98,0x88,0x98,0x68,0x08 },        /*    q        */
  151.     { 0x00,0xa0,0xd0,0x80,0x80,0x80,0x80 },        /*    r        */
  152.     { 0x00,0x00,0x70,0x80,0x70,0x08,0x70 },        /*    s        */
  153.     { 0x20,0x20,0xf8,0x20,0x20,0x28,0x10 },        /*    t        */
  154.     { 0x00,0x00,0x90,0x90,0x90,0x90,0x70 },        /*    u        */
  155.     { 0x00,0x00,0x88,0x88,0x88,0x50,0x20 },        /*    v        */
  156.     { 0x00,0x00,0x88,0xa8,0xa8,0xa8,0x50 },        /*    w        */
  157.     { 0x00,0x00,0x88,0x50,0x20,0x50,0x88 },        /*    x        */
  158.     { 0x00,0x00,0x88,0x50,0x20,0x20,0x20 },        /*    y        */
  159.     { 0x00,0x00,0xf8,0x10,0x20,0x40,0xf8 },        /*    z        */
  160.     { 0x08,0x10,0x10,0x30,0x10,0x10,0x08 },        /*    {        */
  161.     { 0x20,0x20,0x20,0x20,0x20,0x20,0x20 },        /*    |        */
  162.     { 0x80,0x40,0x40,0x60,0x40,0x40,0x80 },        /*    }        */
  163.     { 0xf8,0x00,0x00,0x00,0x00,0x00,0x00 }        /*    ~        */
  164. } ;
  165.  
  166. char    WORD_9p[95][1*9] = {
  167.     { 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 },        /*    space    */
  168.     { 0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x00,0x20 },        /*    !    */
  169.     { 0x50,0x50,0x00,0x00,0x00,0x00,0x00,0x00,0x00 },        /*    "    */
  170.     { 0x50,0x50,0xf8,0x50,0x50,0x50,0xf8,0x50,0x50 },        /*    #    */
  171.     { 0x20,0x78,0xa0,0xa0,0x70,0x28,0x28,0xf0,0x20 },        /*    $    */
  172.     { 0xc8,0xc8,0x10,0x10,0x20,0x40,0x40,0x98,0x98 },        /*    %    */
  173.     { 0x60,0x90,0x90,0xa0,0x40,0xa8,0x90,0x90,0x68 },        /*    &    */
  174.     { 0x20,0x20,0x40,0x00,0x00,0x00,0x00,0x00,0x00 },        /*    '    */
  175.     { 0x08,0x10,0x20,0x20,0x20,0x20,0x20,0x10,0x08 },        /*    (    */
  176.     { 0x80,0x40,0x20,0x20,0x20,0x20,0x20,0x40,0x80 },        /*    )    */
  177.     { 0x00,0x20,0xa8,0x70,0xf8,0x70,0xa8,0x20,0x00 },        /*    *    */
  178.     { 0x00,0x20,0x20,0x20,0xf8,0x20,0x20,0x20,0x00 },        /*    +    */
  179.     { 0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x20,0x40 },        /*    ,    */
  180.     { 0x00,0x00,0x00,0x00,0xf8,0x00,0x00,0x00,0x00 },        /*    -    */
  181.     { 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40 },        /*    .    */
  182.     { 0x00,0x08,0x08,0x10,0x10,0x20,0x20,0x40,0x40 },        /*    /    */
  183.     { 0x70,0x88,0x88,0x98,0xa8,0xc8,0x88,0x88,0x70 },        /*    0    */
  184.     { 0x20,0x60,0x20,0x20,0x20,0x20,0x20,0x20,0x70 },        /*    1    */
  185.     { 0x70,0x88,0x88,0x08,0x10,0x20,0x40,0x80,0xf8 },        /*    2    */
  186.     { 0x70,0x88,0x88,0x08,0x30,0x08,0x88,0x88,0x70 },        /*    3    */
  187.     { 0x10,0x30,0x30,0x50,0x50,0x90,0x90,0xf8,0x10 },        /*    4    */
  188.     { 0xf8,0x80,0x80,0xf0,0x08,0x08,0x88,0x88,0x70 },        /*    5    */
  189.     { 0x70,0x88,0x80,0xf0,0x88,0x88,0x88,0x88,0x70 },        /*    6    */
  190.     { 0xf8,0x88,0x08,0x08,0x10,0x10,0x20,0x20,0x20 },        /*    7    */
  191.     { 0x70,0x88,0x88,0x88,0x70,0x88,0x88,0x88,0x70 },        /*    8    */
  192.     { 0x70,0x88,0x88,0x88,0x88,0x78,0x08,0x88,0x70 },        /*    9    */
  193.     { 0x00,0x00,0x20,0x00,0x00,0x00,0x20,0x00,0x00 },        /*    :    */
  194.     { 0x00,0x00,0x20,0x00,0x00,0x20,0x20,0x40,0x00 },        /*    ;    */
  195.     { 0x00,0x10,0x20,0x40,0x80,0x40,0x20,0x10,0x00 },        /*    <    */
  196.     { 0x00,0x00,0x00,0xf8,0x00,0xf8,0x00,0x00,0x00 },        /*    =    */
  197.     { 0x00,0x80,0x40,0x20,0x10,0x20,0x40,0x80,0x00 },        /*    >    */
  198.     { 0x70,0x88,0x88,0x08,0x10,0x20,0x20,0x00,0x20 },        /*    ?    */
  199.     { 0x70,0x88,0x98,0xa8,0xa8,0xa8,0xb8,0x88,0x48 },        /*    @    */
  200.     { 0x20,0x50,0x88,0x88,0x88,0xF8,0x88,0x88,0x88 },        /*    A    */
  201.     { 0xF0,0x88,0x88,0x88,0xF0,0x88,0x88,0x88,0xF0 },        /*    B    */
  202.     { 0x70,0x88,0x88,0x80,0x80,0x80,0x88,0x88,0x70 },        /*    C    */
  203.     { 0xE0,0x90,0x88,0x88,0x88,0x88,0x88,0x90,0xE0 },        /*    D    */
  204.     { 0xF8,0x80,0x80,0x80,0xF0,0x80,0x80,0x80,0xF8 },        /*    E    */
  205.     { 0xF8,0x80,0x80,0x80,0xF0,0x80,0x80,0x80,0x80 },        /*    F    */
  206.     { 0x70,0x88,0x88,0x80,0x80,0x98,0x88,0x88,0x70 },        /*    G    */
  207.     { 0x88,0x88,0x88,0x88,0xF8,0x88,0x88,0x88,0x88 },        /*    H    */
  208.     { 0x70,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x70 },        /*    I    */
  209.     { 0xF8,0x10,0x10,0x10,0x10,0x10,0x10,0x90,0x60 },        /*    J    */
  210.     { 0x88,0x88,0x90,0xA0,0xC0,0xA0,0x90,0x88,0x88 },        /*    K    */
  211.     { 0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,0xF8 },        /*    L    */
  212.     { 0x88,0x88,0xD8,0xD8,0xA8,0xA8,0xA8,0x88,0x88 },        /*    M    */
  213.     { 0x88,0x88,0xC8,0xC8,0xA8,0x98,0x98,0x88,0x88 },        /*    N    */
  214.     { 0x70,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x70 },        /*    O    */
  215.     { 0xF0,0x88,0x88,0x88,0xF0,0x80,0x80,0x80,0x80 },        /*    P    */
  216.     { 0x70,0x88,0x88,0x88,0x88,0x88,0xA8,0x90,0x68 },        /*    Q    */
  217.     { 0xF0,0x88,0x88,0x88,0xF0,0xA0,0x90,0x88,0x88 },        /*    R    */
  218.     { 0x70,0x88,0x88,0x80,0x70,0x08,0x88,0x88,0x70 },        /*    S    */
  219.     { 0xF8,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20 },        /*    T    */
  220.     { 0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x88,0x70 },        /*    U    */
  221.     { 0x88,0x88,0x88,0x88,0x88,0x88,0x50,0x50,0x20 },        /*    V    */
  222.     { 0x88,0x88,0xA8,0xA8,0xA8,0xA8,0xA8,0x50,0x50 },        /*    W    */
  223.     { 0x88,0x88,0x50,0x50,0x20,0x50,0x50,0x88,0x88 },        /*    X    */
  224.     { 0x88,0x88,0x50,0x50,0x20,0x20,0x20,0x20,0x20 },        /*    Y    */
  225.     { 0xF8,0x08,0x10,0x10,0x20,0x40,0x40,0x80,0xF8 },        /*    Z    */
  226.     { 0x38,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x38 },        /*    [    */
  227.     { 0x88,0x50,0x20,0xf8,0x20,0xf8,0x20,0x20,0x20 },        /*    \    */
  228.     { 0xe0,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0xe0 },        /*    ]    */
  229.     { 0x20,0x50,0x50,0x00,0x00,0x00,0x00,0x00,0x00 },        /*    ^    */
  230.     { 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf8 },        /*    _    */
  231.     { 0x20,0x20,0x10,0x00,0x00,0x00,0x00,0x00,0x00 },        /*    `    */
  232.     { 0x00,0x00,0x70,0x08,0x78,0x88,0x88,0x98,0x68 },        /*    a    */
  233.     { 0x80,0x80,0x80,0xb0,0xc8,0x88,0x88,0xc8,0xb0 },        /*    b    */
  234.     { 0x00,0x00,0x70,0x88,0x80,0x80,0x80,0x88,0x70 },        /*    c    */
  235.     { 0x08,0x08,0x08,0x78,0x88,0x88,0x88,0x98,0x68 },        /*    d    */
  236.     { 0x00,0x00,0x70,0x88,0x88,0xf8,0x80,0x88,0x70 },        /*    e    */
  237.     { 0x10,0x28,0x20,0x20,0xf8,0x20,0x20,0x20,0x20 },        /*    f    */
  238.     { 0x70,0x88,0x88,0x88,0x98,0x68,0x08,0x88,0x70 },        /*    g    */
  239.     { 0x80,0x80,0x80,0xb0,0xc8,0x88,0x88,0x88,0x88 },        /*    h    */
  240.     { 0x00,0x00,0x20,0x00,0x20,0x20,0x20,0x20,0x20 },        /*    i    */
  241.     { 0x00,0x00,0x10,0x00,0x10,0x10,0x10,0x90,0x60 },        /*    j    */
  242.     { 0x80,0x80,0x88,0x90,0xa0,0xc0,0xa0,0x90,0x88 },        /*    k    */
  243.     { 0x20,0x60,0x20,0x20,0x20,0x20,0x20,0x30,0x20 },        /*    l    */
  244.     { 0x00,0x00,0xd0,0xa8,0xa8,0xa8,0xa8,0xa8,0xa8 },        /*    m    */
  245.     { 0x00,0x00,0xb0,0xc8,0x88,0x88,0x88,0x88,0x88 },        /*    n    */
  246.     { 0x00,0x00,0x70,0x88,0x88,0x88,0x88,0x88,0x70 },        /*    o    */
  247.     { 0xb0,0xc8,0x88,0x88,0xc8,0xb0,0x80,0x80,0x80 },        /*    p    */
  248.     { 0x68,0x98,0x88,0x88,0x98,0x68,0x08,0x08,0x08 },        /*    q    */
  249.     { 0x00,0x00,0xb0,0xc8,0x80,0x80,0x80,0x80,0x80 },        /*    r    */
  250.     { 0x00,0x00,0x70,0x88,0x80,0x70,0x08,0x88,0x70 },        /*    s    */
  251.     { 0x20,0x20,0xf8,0x20,0x20,0x20,0x20,0x28,0x10 },        /*    t    */
  252.     { 0x00,0x00,0x88,0x88,0x88,0x88,0x88,0x98,0x68 },        /*    u    */
  253.     { 0x00,0x00,0x88,0x88,0x88,0x88,0x88,0x50,0x20 },        /*    v    */
  254.     { 0x00,0x00,0x88,0x88,0xa8,0xa8,0xa8,0x50,0x50 },        /*    w    */
  255.     { 0x00,0x00,0x88,0x88,0x50,0x20,0x50,0x88,0x88 },        /*    x    */
  256.     { 0x88,0x88,0x88,0x88,0x78,0x08,0x08,0x88,0x70 },        /*    y    */
  257.     { 0x00,0x00,0xf8,0x08,0x10,0x20,0x40,0x80,0xf8 },        /*    z    */
  258.     { 0x08,0x10,0x10,0x10,0x20,0x10,0x10,0x10,0x08 },        /*    {    */
  259.     { 0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20 },        /*    |    */
  260.     { 0x80,0x40,0x40,0x40,0x20,0x40,0x40,0x40,0x80 },        /*    }    */
  261.     { 0xf8,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 }        /*    ~    */
  262. } ;
  263.  
  264. /**************************  7ﾎﾟのANK文字列表示  *****************************/
  265. void WORD_put7p( char *egbwork,int x,int y,int f_color,int b_color,char *s )
  266. /*=============================================================================
  267. **    7ﾎﾟｲﾝﾄのANK文字列を表示する.
  268. **
  269. **    < INPUT  > : x        表示開始水平座標
  270. **               : y        表示開始垂直座標
  271. **               : f_color  文字色
  272. **               : b_color  背景色
  273. **               : s        文字列
  274. **    < OUTPUT > : なし
  275. **    < RETURN > : なし
  276. **
  277. **    5 * 7 ﾄﾞｯﾄ のANK文字列を表示する.
  278. **    ｢"｣,｢\｣等は、printf()同様 \ﾏｰｸ を重ねること.
  279. =============================================================================*/
  280. {
  281.     struct _ANKFONT {
  282.             short int    left ;
  283.             short int    up ;
  284.             short int    length ;
  285.             char        font[1] ;
  286.     } af ;
  287.     int        c, len ;
  288.     int        p ;
  289.  
  290.     len = strlen( s ) ;
  291.     EGB_writeMode( Gwork,PSET ) ;
  292.     EGB_paintMode( egbwork,0x20 ) ;
  293.     EGB_color( egbwork,2,b_color ) ;
  294.     box( egbwork,x,y+1,x+len*(YCDOT7P-1)-1,y+YCDOT7P ) ;
  295.  
  296.     EGB_textZoom( egbwork,1,XCDOT,YCDOT7P ) ;
  297.     EGB_textSpace( egbwork,(-2) ) ;
  298.     EGB_color( egbwork,0,f_color ) ;
  299.  
  300.     af.left    = x ;
  301.     af.up      = y + YCDOT7P ;
  302.     af.length  = ZERO ;
  303.     af.font[0] = 0x00 ;                            /*  NULL設定                */
  304.     EGB_paintMode( egbwork,0x02 ) ;
  305.     EGB_sjisString( egbwork,(char *)&af ) ;        /*  表示開始位置の設定        */
  306.  
  307.     for ( c=0; c<len; c++ ) {
  308.         if ( (0x19<s[c]) && (s[c]<0x7f) ) {
  309.             p = s[c] - ' ' ;
  310.             if ( p >= ZERO ) {
  311.                 EGB_anyChar( egbwork,XCDOT,YCDOT7P,WORD_7p[p] ) ;
  312.             }
  313.         }
  314.     }
  315.     EGB_textSpace( egbwork,ZERO ) ;
  316.     EGB_textZoom( egbwork,1,XCDOT+XCDOT,YCDOT ) ;
  317. }
  318.  
  319. /**************************  9ﾎﾟのANK文字列表示  *****************************/
  320. void WORD_put9p( char *egbwork,int x,int y,int f_color,int b_color,char *s )
  321. /*=============================================================================
  322. **    7ﾎﾟｲﾝﾄのANK文字列を表示する.
  323. **
  324. **    < INPUT  > : x        表示開始水平座標
  325. **               : y        表示開始垂直座標
  326. **               : f_color  文字色
  327. **               : b_color  背景色
  328. **               : s        文字列
  329. **    < OUTPUT > : なし
  330. **    < RETURN > : なし
  331. **
  332. **    5 * 9 ﾄﾞｯﾄ のANK文字列を表示する.
  333. **    ｢"｣,｢\｣等は、printf()同様 \ﾏｰｸ を重ねること.
  334. =============================================================================*/
  335. {
  336.     struct _ANKFONT {
  337.             short int    left ;
  338.             short int    up ;
  339.             short int    length ;
  340.             char        font[1] ;
  341.     } af ;
  342.     int        c, len ;
  343.     int        p ;
  344.  
  345.     len = strlen( s ) ;
  346.     EGB_writeMode( Gwork,PSET ) ;
  347.     EGB_paintMode( egbwork,0x20 ) ;
  348.     EGB_color( egbwork,2,b_color ) ;
  349.     box( egbwork,x,y+1,x+len*(YCDOT9P-1)-1,y+YCDOT9P ) ;
  350.  
  351.     EGB_textZoom( egbwork,1,XCDOT,YCDOT9P ) ;
  352.     EGB_textSpace( egbwork,(-2) ) ;
  353.     EGB_color( egbwork,0,f_color ) ;
  354.  
  355.     af.left    = x ;
  356.     af.up      = y + YCDOT9P ;
  357.     af.length  = ZERO ;
  358.     af.font[0] = 0x00 ;                            /*  NULL設定                */
  359.     EGB_paintMode( egbwork,0x02 ) ;
  360.     EGB_sjisString( egbwork,(char *)&af ) ;        /*  表示開始位置の設定        */
  361.  
  362.     for ( c=0; c<len; c++ ) {
  363.         if ( (0x19<s[c]) && (s[c]<0x7f) ) {
  364.             p = s[c] - ' ' ;
  365.             if ( p >= ZERO ) {
  366.                 EGB_anyChar( egbwork,XCDOT,YCDOT9P,WORD_9p[p] ) ;
  367.             }
  368.         }
  369.     }
  370.     EGB_textSpace( egbwork,ZERO ) ;
  371.     EGB_textZoom( egbwork,1,XCDOT+XCDOT,YCDOT ) ;
  372. }
  373.  
  374.